home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00872_PH-IN fi 2.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  600 b   |  20 lines
  1. on exitFrame
  2.   global gSurvolPrec, gSujAct, gTextPhyL, gEtatEtud, g1erSprLoc, gMaxBoutons
  3.   repeat with i = g1erSprLoc to gMaxBoutons
  4.     puppetSprite(i, 1)
  5.   end repeat
  6.   put ">" & gSujAct
  7.   set monTxt to getAt(gTextPhyL, gSujAct)
  8.   if (the number of lines in monTxt = 1) or (gSujAct = 35) then
  9.     gBoutons(habille, g1erSprLoc, "VIDE")
  10.   end if
  11.   set the text of cast "TXT PHY" to line 1 of monTxt
  12.   repeat with i = g1erSprLoc to gMaxBoutons
  13.     set the visible of sprite i to 1
  14.   end repeat
  15.   set the visible of sprite 3 to 1
  16.   set the visible of sprite 4 to 1
  17.   JukeBox(1, " ")
  18.   curseur(-1)
  19. end
  20.